spacewar 4.8 7/24/63 pt . 2 dfw 



nob=30 
mlO, 



/total number of colliding objects 



setup mtc 
init mil, 
init mxl, 
init myl, 
init mal, 
init mbl, 
init . mdx, 
init mdy, 
init mom, 
init mth, 
init mfu, 
init mtr, 
init mot, 
init mco, 
law nhl 
dac mhi 
law nh2 
dac mh2 
law nh3 
dac mh3 
law nh4 
dac mh4 
lac mtb 
sza i 
jrnp mdn 
lac mtb 1 
sza i 
jmp mdn 
lac ntr 
ior ntr 1 
sza i 
jmp mdn 
jmp mil 



, 5000 /delay for loop 

mtb /loc of calc routines 

nxl /x 

nyl /y 

nal /count for length of explosion or torp 

nbi /time taken by calc routine 

ndx /dx 

ndy /dy 

nom /angular velocity 

nth /angle 

nfu /fuel 

ntr /number torps remaining 

not /outline of spaceship 

nco /old control word 



/ship all gone away 

/test if both ships out of torps 



/ control word get routines 



tngl, 

mg3, 
mg2, 

mg4, 
idl, 



ids, 



mil, 



dap mg3 




cli 




iot 11 




rir 4s 




jmp . 




dap mg4 




lat 




swap 




jmp . 




idx mth 




idx mfu 




idx mtr 




idx mco 




idx mot 




idx mom 




idx mhl 




idx mh2 




idx mh3 




idx mh4 




idx mxl 




idx myl 




idx mal 




idx mbl 




idx mdy 




idx mdx 




lac . 




sza i 




jmp mql 




dap mjm 




spa 




jmp mjm 




law 1 




add mil 




sad (lac mtb 


nob 


jmp mjm-1 




dap ml2 




law 1 




add mxl 




dap mx2 




law 1 




add myl 




dap my2 




law 1 




add mal 




dap ma2 




law 1 




add mbl 




dap mb2 





/ 1st control word 

/ zero if not active 

/ not active 

/jmp to calc routine or make explode 

/control word + if object collidible 



/proximity test 



ml2, 



mxl, 
mx2, 



myl, 
my2, 



mq2, 



mjm, 
mbl, 

mql, 



lac . 

spq 

jmp mq2 

lac . 

sub . 

spa 

cma __ 

dac tl 

sub mel 

sma 

jmp mq2 

lac . 

sub . 

spa 

cma 

sub mel 

sma 

jmp mq2 

add tl 

sub me2 

spa 

jmp mjm 

Idx mx2 

idx my2 

idx ma2 

idx mb2 

index ml2, (lac 



/ 2nd control word 

/ can it collide? 

/ no 

/ calc if collision 

/ delta x 

/ take abs val 



/ < epsilon ? 
/ no 

/ < epsilon ? 
/ no 

/ end of comparison loop 
mtb nob, ml2 



idx mjm 
jmp . 

lac ^ 

add mtc 

dac mtc 

idx mil 

sad (lac mtb 1 

jmp idl 

sas (lac mtb nob 

jmp ids 

background 

jsp bl£ 

count mtc, . 

jmp mlO 



/to calc routine or make object explode 
/ alter count of number of instructions 



/ display massive star 

/ use up rest of time of main loop 

/ repeat whole works 



bit, 



sex, 



mb2, 



ma.!., 
ma2, 



law 20 
dac i mbl 

dac 1 mb2 

lac (mex 400000 

dac 1 mil 

dac 1 ml2 

lac 1 mbl 

add . 

cma 

sar 8s 

add (1 

dac . 

dac . 

jmp mbl 



/routine to set explosion 



/alternate entry point 

/ replace calc routine with explosion 

/ duration of explosion 



/ misc calculation routines 
/ explosion 

mex, 



mzl, 



msh, 
mil, 



mst, 



lac 


i mdx 


sar 


3s 


add 


i mxl 


dac 


i mxl 


lac 


i mdy 


sar 


3s 


add 


i myl 


dac 


i myl 


law 


mst 


dap 


msh 


lac 


i mbl 


cma 


cli-opr 


sar 


3s 


dac 


tl 


sub 


(i4o 


sma 




idx 


msh 


lac 


ran 


and 


(777 
(scl 


ior 


dac 


mil 


random 


scr 


9s 


sir 


9s 


xct 


• 


hit 




add 


i myl 


swap 


add 


i mxl 


dpy- 


-i 300 


count tl, mzl 


count i mal, mbl 


dzm 


i mil 


jmp 


mbl 


scr 


is 


scr 


3s 



/ time involved 



/ torpedo calc routine 

tcr, jmp bit 

count i mal, tcl 
lac (mex 400000 
dac i mil 
law i 2 
dac 1 mal 
law 20 
dac 1 mbl 
jrnp mbl 

tcl, lac 1 mxl 

sar 9s 

xct the 
mdy, add ndy 

dac 1 mdy 

sar 3s 

add 1 myl 

dac 1 myl 

sar 9s 

xct the 
mdx, add ndx 

dac i mdx 

sar 3s 

add i mxl 

dac i mxl 

dispt i, 1 myl, 1 

jrnp mbl 

/ hyperspace routines 

/ this routine handles a non-colliding ship invisibly 
/ in hyperspace 

hpl, count i mal, mbl 

law hp3 / next step 

dac i mil 

law 7 

dac i mbl 

random 

scr 9s 

sir 9s 

xct hrl 

add i mxl 

dac i mxl 

swap 

add i myl 

dac i myl 

dzm i mdx 

dzm i mdy 

xct hd2 

dac i mal 

jrnp mbl 



/ this routine handles a ship breaking out of 
/ hyperspace. 

hp3> J m P sex 

count i mal,hp6 

law 2000 

dac i mbl 

lac i mh4 

add hur 

dac i mh4 

random 

ior (400000 

add i mh4 

sma 

jmp pol 

lac i fflhl 

dac i mil 

lac ran 

scr 9s 

sir 9s 

xcx* nrc 

dac i mdy 

dio i mdx 

setup tl,3 

lac ran 

dac i mth 
hp4, lac i mth 

sma 

sub (311040 

spa 

add (311040 

dac i mth 

count tl,hp4 

count i mh2,hp7 

dzm i mh2 
hp7 xct hd3 

dac i mh3 
hp6, lac i rnxl 

dispt I, i myl 2 

jmp mbl 



/ spaceship calc 

ssl, jmp sex /something came too clos 

jsp 1 cwg 

jmp srO 

ss2 ;r jmp sex 

jsp 1 cwg 

srO, dio sew 

scl., elf 6 cla-opr /update angle 
spi 
add rnaa 

spi 

sub ma a 
mom , add . 

dac i mom 

szs 10 

jmp . 3 

dzm i mom 

ral 5s 

ril Is 

spi 

stf 6 
mfUj 11 o nfu 

spi 1 

elf 6 

rnthj add . 
sraa 

sub (311040 

spa 

add (311040 

dac i mth 

j da s_in 

dac sn 

dzm bx 

dzm by 

szs 60 

j..p bsg 

lac 1 rrxi 

dac ti 

u!Ul ti 

scr is 

dac a ex 
cla 

scr 2s 
dio iox 

lac i myi 
dac tl 

mul ti 

O vi Xb 

dac acy 

cla 
scr 2s 

swap_ 
add iox 

SWap 

sel 2s 
add acx 
add acy 



bsg, 



sub str 
sina i sza-skp 
jmp pof 
add str 
varsf t 
dac tl 
jda sqt 
mul tl 
undosft 
scr 9s 
scr 6s 
szs I 20 

S CP £L3 

sza 

juip bsg 

scr Is 

dio tl _ 

integrate mxl, bx 

integrate myl, by 

lac i mth 

jda cos 

dac cs 

sar 9s 

xct sac 

szf I 6 

cla __ 

add by 

dlffjndy, myl, (sar 3s 

lac sn 

sar 9s 

xct sac 

cma 

szf l 6 

cla _ 

add bx 

diff mdx, mxl, _( sar 3s 

scale sn, 5s, ssn 

scale cs, 5s, sen 

lac 1 mxl 

sub ssn 

dac sxl 

sub ssn 

dac stx 



/ switch 2 for light star 



mot,s 
sq6, 



sq7, 

st2 

sq9, 
mco, 



mtr, 



stl, 
srl, 



lac i rnyl 
add sen 
dac syl 
add sen 
dac sty 

scale sn, 9s, ssn 
scale cs, 9s, sen 
dac scm 
lac ssn 
dac s_sm 
add sen 
dac s_sc 
dac ssd 
lac ssn 
sub sen 
dac csn 
cma __ 
dac cam 
cla cli-opr 
dpy-4000 
95, jmp 1 . 
szf i 6 
jmp sq9 
ranct sar 9s, 
scale sn, 8s, 
scale cs, 8s, 
count i rafu, 
dzrn i mfu 
jrnp sq9 _ 

yincr sxl__ syl, 
dispt !_, syl 
count src,sq7 
count i mal, sr5 
dzm I mal 
lac . 
cma 

szs 1 30 
clc ___ 
and sew 
ral 3s 
sma 

jmp sr5 

count ntr, stl 
dzm i mtr 
jrnp sr5 

init srl, mtb nob-1 
lac . 
sza 1 
jrnp sr2 
law i 1 
add srl 
dap srl 

sas (lac mtb-1 
jrnp srl 
hit 
jrnp sr5 



/not__b las ting or no fuel 
sar 4s, sre 
ssn 
sen 
t2 



sub 



/ check if torp tube reloaded 
/ prevent count around 
/ previous control word 



/ present control word 
/ torpedo bit to bit 

/ no launch 

/ check if torpedos exhausted 

/ prevent count around 

/search for unused object 

/ if unused 



/ no space for new objects 
/go on anyway 



sr2, lac (tcr / set up torpedo calc 



ss3, 



ss- 



sr3r" 



sr4, 



sr6, 



&r5y 



lac 


(tcr 


dac 


1 srl 


law 


nob 


add 


srl 


dap 


ss3 


llo 


stx 


dio 


• 


add 


(nob 


dap 


ss4 


llo 


sty 


dio 


• 


add 


(nob 


dap 


sr6 


add 


(nob 


dap 


sr7 


add 


(nob 


dap 


sr3 


add 


(nob 


dap 


sr4 


lac 


sn 


xct 


tvl 


cma 




add 


i mdx 


dac 


• 


lac 


cs 


xct 


tvl 


add 


1 mdy 


dac 


* 


xct 


X JL L/ 


dac 


1 mal 


xct 


tlf 


dac 


• 


lac 


(lac mtb no 


sub 


srl 


sal 


3s 


add 


(30 


dap 


■ 


lac 


sew 


dac 


i mco 


count 1 mh3> mb 


dzra 


i mh3 


lac 


mh2 


sza 


i 


Jmp 


mbl 


lac 


sew 


spa 




ral 


Is 


sma 




jmp 


mbl 


lac 


i mil 


dac 


1 mhl 


lac 


(hpl 400000 


dac 


i mil 


xct 


hdl 


dac 


I mal 


law 


2 


dac 


i mbl 



/ permit torp tubes to cool 
/ life of torpedo 



sr7, dap . / length of torp calc. 



/hypers pace button on? 
/no 



jmp mbl 



/ here to handle spaceships dragged into star 



/ spaceship in star 

pof dzm I rndx 

dzrn I mdy 
szs 50 

J Hi p P O a. 

lac "(377777 
dac i mxl 

dac i rnyl 
jmp rnql 

pol, lac (mex 400000 / now go bang 

dac i mil 
law i 10 
dac i mal 
jmp mql 

/ here if a ship exploded or both ships out of torps 

rndn, count ntd, mil /wait awhile 
s ui x 
stf 2 
lav; ssl 

xor ::ltb 

sza 
sza i 

1QX XSC 

law ss2 
xor rntb i 
sza 

\mS JL> JL dm 

sza ±_ 
idx 2s c 
elf 2 



3.1 y 



a4o, 



law mg2 
dac cwg 
jmp a 



/ test word control 



law cwr / here from start at 4 
dac cwg 
jmp a 6 



a 



a5, 



a4, 



a6, 



a<d. ^ 



lac get 




sraa 




jmp a5 




count get, a 5 




lac lsc 




sas 2s c 




jmp a4 




law 1 1 




dac get 




lat 




and (40 




sza 1 




jmp a2 




lac Tsc 




lio 2se 




hit 




lat 




and (40 




sza 




jmp a2 




dzm lsc 




dzm £sc 




lat 




rar 6s 




and (37 




sza 




cma _ 




dac get 




clear mtb, nnn-1 


/ clear out all tables 


law ssl 




dac mtb 




law ss2 




dac mtb 1 




lac (200000 




dac nxl 




dac nyl 




cma 




dae nxl 1 




dac nyl 1 




lac (144420 




dac nth 





•3, 



law nnn 
dac not 
II o ddd 
spi i 
juip a 3 
jda oc 
otl 

dac not 1 
jda oc 
ot2 

xct tno 
dac ntr 
dac ntr 1 
lac foo 
dac nfu 
dac nfu+1 
law 2000 
dac nbl 
dac nbl 1 
xct mhs 
dac nh2 
dac nh2 1 
xct tlf 
sal Is 
dac ntd 
.imp mlO 



/ outlines of spaceships 



/ start of outline program 



/ compile outline 



/ restart delay is 2xtorp life 
/start new game 



otl, 



5/ 



11H31 

-*• J^-wW tAm -JU JL 

111111 

311111 
146111 

111114 

700000 



ot2, 



5/ 



013113 
113111 
116313 
131111 
161151 
111633 
365H4 
700000 



variables 
constants 



mtb, / ta/ble of objects and their properties 

nxl=mtb nob 
nyl=nxl nob 
nai=nyl nob 
nbl=nal nob 
ndx=nbl nob 
ndy=ndx nob 
norn=ndy nob 
nth=norn 2 
nfu=nth 2 
ntr=nfu 2 
not=ntr 2 
nco=not 2 
nhl=nco 2 
nh2=nhi 2 
nh3 : =nh2 2 

nh4=nh3 2 
nnn=nh4 2 

start 4 



